home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Workspace / Locus / Source / InspectorPane.m < prev    next >
Text File  |  1995-06-12  |  1KB  |  84 lines
  1.  
  2. /*
  3.     Copyright 1993  Jeremy Slade.  All rights reserved.
  4. */
  5.  
  6. #import "InspectorPane.h"
  7.  
  8. #import "Globals.h"
  9.  
  10.  
  11. @implementation InspectorPane
  12.  
  13.  
  14. + initialize
  15. {
  16.     [self setVersion:InspectorPane_VERSION];
  17.     return ( self );
  18. }
  19.  
  20.  
  21.  
  22. - initContent:(const NXRect *)contentRect
  23.     style:(int)aStyle
  24.     backing:(int)bufferingType
  25.     buttonMask:(int)mask
  26.     defer:(BOOL)flag
  27. {
  28.     [super initContent:contentRect
  29.         style:aStyle
  30.         backing:bufferingType
  31.         buttonMask:mask
  32.         defer:flag];
  33.     
  34.     target = nil;
  35.     
  36.     return ( self );
  37. }
  38.  
  39.  
  40.  
  41. - free
  42. {
  43.     return ( [super free] );
  44. }
  45.  
  46.  
  47.  
  48. - inspect:anObject
  49. /* set the object being inspected */
  50. {
  51.     if ( anObject != target ) {
  52.         target = anObject;
  53.     }
  54.     return ( self );
  55. }
  56.  
  57.  
  58.  
  59. - (BOOL)canInspect:anObject
  60. /* Intended to be overridden by subclasses */
  61. {
  62.     return ( NO );
  63. }
  64.  
  65.  
  66.  
  67. - inspecting
  68. /* Returns the object currently being inspected */
  69. {
  70.     return ( target );
  71. }
  72.  
  73.  
  74.  
  75. - showCurrent:sender
  76. /* Update the display with the current attribute of the target */
  77. {
  78.     return ( self );    // Subclasses must implement
  79. }
  80.  
  81.  
  82.  
  83. @end
  84.